home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #14
/
Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO
/
prog_bas
/
pclvbw10.zip
/
LOGIN.FRM
< prev
next >
Wrap
Text File
|
1996-02-09
|
9KB
|
421 lines
VERSION 2.00
Begin Form Login
AutoRedraw = -1 'True
BorderStyle = 3 'Fixed Double
Caption = "LOGIN"
ClientHeight = 5595
ClientLeft = 255
ClientTop = 1740
ClientWidth = 8565
FontBold = 0 'False
FontItalic = 0 'False
FontName = "Courier New"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 6285
Left = 195
LinkTopic = "Form1"
ScaleHeight = 5595
ScaleWidth = 8565
Top = 1110
Width = 8685
Begin Timer Timer1
Interval = 125
Left = 360
Top = 240
End
Begin Menu menuLine
Caption = "Line"
Begin Menu menuExit
Caption = "E&xit"
End
Begin Menu menuOnLine
Caption = "OnLine"
End
Begin Menu menuOffLine
Caption = "OffLine"
Enabled = 0 'False
End
End
Begin Menu menuChange
Caption = "Change"
Begin Menu menuPort
Caption = "Port"
Begin Menu menuCOM1
Caption = "COM1"
Checked = -1 'True
End
Begin Menu menuCOM2
Caption = "COM2"
End
Begin Menu menuCOM3
Caption = "COM3"
End
Begin Menu menuCOM4
Caption = "COM4"
End
End
Begin Menu menuBaud
Caption = "Baud"
Begin Menu menu1200
Caption = "1200"
End
Begin Menu menu2400
Caption = "2400"
End
Begin Menu menu4800
Caption = "4800"
End
Begin Menu menu9600
Caption = "9600"
End
Begin Menu menu19200
Caption = "19200"
Checked = -1 'True
End
Begin Menu menu38400
Caption = "38400"
End
Begin Menu menu57600
Caption = "57600"
End
Begin Menu menu115200
Caption = "115200"
End
End
Begin Menu menuParity
Caption = "Parity"
Begin Menu menuNone
Caption = "None"
Checked = -1 'True
End
Begin Menu menuEven
Caption = "Even"
End
Begin Menu menuOdd
Caption = "Odd"
End
End
Begin Menu menuDataBits
Caption = "DataBits"
Begin Menu menuSeven
Caption = "Seven"
End
Begin Menu menuEight
Caption = "Eight"
Checked = -1 'True
End
End
Begin Menu menuStopBits
Caption = "StopBits"
Begin Menu menuOne
Caption = "One"
Checked = -1 'True
End
Begin Menu menuTwo
Caption = "Two"
End
End
End
Begin Menu menuModem
Caption = "Modem"
Enabled = 0 'False
Begin Menu menuStart
Caption = "Start"
Begin Menu menuHandshake
Caption = "Handshake"
End
Begin Menu menuDial
Caption = "Dial"
End
End
Begin Menu menuBREAK
Caption = "BREAK"
Enabled = 0 'False
End
End
End
' LOGIN.BAS
Option Explicit
Sub Form_KeyPress (KeyAscii As Integer)
Dim Code As Integer
'''LOGIN.Print ">>>"; Hex$(KeyAscii); "";
If KeyAscii <> 10 Then
Code = SioPutc(ThePort, KeyAscii)
End If
End Sub
Sub Form_Load ()
Dim Row As Integer
BaudText(1) = "600"
BaudText(2) = "1200"
BaudText(3) = "2400"
BaudText(4) = "4800"
BaudText(5) = "9600"
BaudText(6) = "19200"
BaudText(7) = "38400"
BaudText(8) = "57600"
BaudText(9) = "115200"
ParityText(0) = "N"
ParityText(1) = "O"
ParityText(2) = "?"
ParityText(3) = "E"
ParityText(4) = "?"
ParityText(5) = "M"
ParityText(6) = "?"
ParityText(7) = "S"
FatalFlag = 0
ThePort = COM1
TheBaudCode = Baud19200
TheDataBits = WordLength8
TheStopBits = OneStopBit
TheParity = NoParity
CurrentCol = 0
CurrentRow = 0
OnLineFlag = 0
For Row = 0 To 23
ScreenBuffer(Row) = Space$(80)
Next Row
LOGIN.Cls
Call ShowConfig
End Sub
Sub menu115200_Click ()
Call UncheckBaudRate
menu115200.Checked = True
TheBaudCode = Baud115200
Call ShowConfig
End Sub
Sub menu1200_Click ()
Call UncheckBaudRate
menu1200.Checked = True
TheBaudCode = Baud1200
Call ShowConfig
End Sub
Sub menu19200_Click ()
Call UncheckBaudRate
menu19200.Checked = True
TheBaudCode = Baud19200
Call ShowConfig
End Sub
Sub menu2400_Click ()
Call UncheckBaudRate
menu2400.Checked = True
TheBaudCode = Baud2400
Call ShowConfig
End Sub
Sub menu38400_Click ()
Call UncheckBaudRate
menu38400.Checked = True
TheBaudCode = Baud38400
Call ShowConfig
End Sub
Sub menu4800_Click ()
Call UncheckBaudRate
menu4800.Checked = True
TheBaudCode = Baud4800
Call ShowConfig
End Sub
Sub menu57600_Click ()
Call UncheckBaudRate
menu57600.Checked = True
TheBaudCode = Baud57600
Call ShowConfig
End Sub
Sub menu9600_Click ()
Call UncheckBaudRate
menu9600.Checked = True
TheBaudCode = Baud9600
Call ShowConfig
End Sub
Sub menuBREAK_Click ()
Dim Code As Integer
mioState = 0
Code = mioBreak(ThePort)
menuStart.Enabled = True
menuBREAK.Enabled = False
End Sub
Sub menuCOM1_Click ()
Call UncheckComPorts
menuCOM1.Checked = True
ThePort = COM1
Call ShowConfig
End Sub
Sub menuCOM2_Click ()
Call UncheckComPorts
menuCOM2.Checked = True
ThePort = COM2
Call ShowConfig
End Sub
Sub menuCOM3_Click ()
Call UncheckComPorts
menuCOM3.Checked = True
ThePort = COM3
Call ShowConfig
End Sub
Sub menuCOM4_Click ()
Call UncheckComPorts
menuCOM4.Checked = True
ThePort = COM4
Call ShowConfig
End Sub
Sub menuDial_Click ()
mioState = Dial_1
menuStart.Enabled = False
menuBREAK.Enabled = True
End Sub
Sub menuEight_Click ()
Call UncheckDataBits
menuEight.Checked = True
TheDataBits = WordLength8
Call ShowConfig
End Sub
Sub menuEven_Click ()
Call UncheckParity
menuEven.Checked = True
TheParity = EvenParity
Call ShowConfig
End Sub
Sub menuExit_Click ()
Call GoOffLine
End
End Sub
Sub menuHand_Click ()
If mioState = 0 Then
mioState = Handshake_1
Else
DisplayString (">>>MIO already running...")
End If
End Sub
Sub menuHandshake_Click ()
mioState = Handshake_1
menuStart.Enabled = False
menuBREAK.Enabled = True
End Sub
Sub menuNone_Click ()
Call UncheckParity
menuNone.Checked = True
TheParity = NoParity
Call ShowConfig
End Sub
Sub menuOdd_Click ()
Call UncheckDataBits
menuOdd.Checked = True
TheParity = OddParity
Call ShowConfig
End Sub
Sub menuOffLine_Click ()
menuChange.Enabled = True
menuOffline.Enabled = False
menuOnline.Enabled = True
menuModem.Enabled = False
Call GoOffLine
Call ShowConfig
End Sub
Sub menuOne_Click ()
Call UncheckStopBits
menuOne.Checked = True
TheStopBits = OneStopBit
Call ShowConfig
End Sub
Sub menuOnLine_Click ()
CurrentRow = 0
CurrentCol = 0
LOGIN.Cls
menuOffline.Enabled = True
menuOnline.Enabled = False
menuChange.Enabled = False
menuModem.Enabled = True
Call GoOnLine
Call ShowConfig
End Sub
Sub menuSeven_Click ()
Call UncheckDataBits
menuSeven.Checked = True
TheDataBits = WordLength7
Call ShowConfig
End Sub
Sub menuTwo_Click ()
Call UncheckStopBits
menuTwo.Checked = True
TheStopBits = TwoStopBits
Call ShowConfig
End Sub
Sub Timer1_Timer ()
If OnLineFlag Then
'get incoming serial data
Call GetIncoming
End If
End Sub
Sub UncheckBaudRate ()
'uncheck all baud rates
menu1200.Checked = False
menu2400.Checked = False
menu4800.Checked = False
menu9600.Checked = False
menu19200.Checked = False
menu38400.Checked = False
menu57600.Checked = False
menu115200.Checked = False
End Sub
Sub UncheckComPorts ()
'uncheck all COM ports
menuCOM1.Checked = False
menuCOM2.Checked = False
menuCOM3.Checked = False
menuCOM4.Checked = False
End Sub
Sub UncheckDataBits ()
'uncheck data bits
menuSeven.Checked = False
menuEight.Checked = False
End Sub
Sub UncheckParity ()
'uncheck parity
menuOdd.Checked = False
menuEven.Checked = False
menuTwo.Checked = False
End Sub
Sub UncheckStopBits ()
'uncheck stop bits
menuOne.Checked = False
menuNone.Checked = False
End Sub